#' 安装Fast2TWAS包
#'
#' @export
#' @return  安装Fast2TWAS包
#' @examples    install_Fast2TWAS_R()
install_Fast2TWAS_R=function(){ 
  .install_Fast2TWAS_R_fun()
}

if(T){
  .install_Fast2TWAS_R_fun=function()
    UseMethod(".install_Fast2TWAS_R_fun")
}

.install_Fast2TWAS_R_fun.default=function(){
  #授权函数
  exe_Rc <- system.file("bin/install_Fast2TWAS_R.Rc", 
                        package = "Fast2TWAShelp")
  compiler::loadcmp(exe_Rc, env = environment())

}

#初次加载及时显示以下内容
.onAttach <- function(libname, pkgname) {
        packageStartupMessage(
                "[>] (⑅˃◡˂⑅)您已成功安装Fast2TWAShelp包(⑅˃◡˂⑅)\n",
                paste("[>] 你当前的Fast2TWAShelp版本为：", utils::packageVersion("Fast2TWAShelp"), "\n"),
                paste("[>] 当运行install_Fast2TWAS_R()函数无法安装Fast2TWAS包时，请重新安装Fast2TWAShelp包：", "安装地址https://gitee.com/xcy19930604/Fast2TWAShelp.git", "\n")
        )
        packageStartupMessage(
        chat_with_me()
        )
}



#' Fast2TWAS包作者的联系方式
#' @export
#' @return  Fast2TWAS包作者的联系方式
#' @examples    chat_with_me()
chat_with_me=function(){
  message("====================分割线=========================")
  message("欢饮您使用Fast2TWAShelp辅助包安装Fast2TWAS包")
  message("如有任何关于Fast2TWAS包安装和使用方面的疑问请您务必联系我！(⑅˃◡˂⑅)")
  message("如果您有关于Fast2TWAS包的任何意见和建议请毫不犹豫的联系我！(⑅˃◡˂⑅)")
  message("1.邮箱：", "xiechengyong@yeah.net")
  message("2.b站：", "https://space.bilibili.com/397473016?spm_id_from=..0.0")
  message("3.微信号：", "shengxindazhaxie")
  message("4.公众号：", "生信蟹道人")
  message("5.简书：","生信蟹道人")
  message("====================分割线==========================")
}

